home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Periodicals / develop / develop 7 code / QuickTime / SimpleInMovies / SimpleInController.c next >
Encoding:
C/C++ Source or Header  |  1992-01-13  |  15.4 KB  |  456 lines  |  [TEXT/MPS ]
  1. /*     
  2. SimpleInMovies
  3.  
  4. Sample programs demonstrating how to open and display
  5. QuickTime™ Movies.
  6.  
  7. SimpleInController.c file contains the code for the routines 
  8. having to do with the standard movie controller.
  9.  
  10. Each window is associated with a movie and an instance of the movie
  11. controller. There are menu equivalents for movie controller commands
  12. to show how to interact with the controller.
  13.  
  14. Guillermo A. Ortiz
  15. Macintosh Developer Technical Support
  16.  
  17. 07/23/91 Moved the code here and added editing stuff
  18. 08/07/91 Added code to put cuts into the scrap when being switched in/out.
  19. 08/22/91 Changed FixMovieWindow to accomodate changes in standard controler box.
  20. 11/17/91 Fix final interface problems, clean comments.
  21.  
  22. FROM Beta README:
  23.  
  24. GONE:  The following mcActions have been removed:
  25.         mcStop, mcPlayBackwards, mcSetRate, mcIncreaseRate, mcDecreaseRate
  26.             use mcPlay instead
  27.         
  28.         mcStepForward, mcStepBackward 
  29.             use mcStep instead
  30.         
  31.         mcToggleLooping
  32.             use mcGetLooping and mcSetLooping
  33.         
  34.         mcIncreaseVolume, mcDecreaseVolume
  35.             use mcGetVolume and mcSetVolume
  36.         
  37.         mcSetSelectionBegin, mcSetSelectionEnd
  38.             changed to mcSetSelectionBegin and mcSetSelectionDuration, with the behaviour that mcSetSelectionBegin does nothing, just saves the time passed, and mcSetSelectionDuration then applies the beginning and the duration to the movie. Also, the duration can be negative.
  39.  
  40. */
  41.  
  42. #include <SimpleInMovie.h>
  43.  
  44. Movie cuts;                    /* local scrappy movie */
  45.  
  46. void ChangeMooVState(void);
  47. void ChangeMooVSound(void);
  48. void NextMooVFrame(void);
  49. void PrevMooVFrame(void);
  50. void SetMovieLoop(short);
  51. void DoEnableEditing(void);
  52.  
  53. void DoUndoMovie(void);
  54. void DoCutMovie(void);
  55. void DoCopyMovie(void);
  56. void DoPasteMovie(void);
  57. void DoClearMovie(void);
  58. void DoSelectAll(void);
  59.  
  60. extern void DoScrapStuff(Boolean toScrap);
  61.  
  62. OSErr FixMovieWindow(WindowPtr window);
  63.  
  64. Boolean IsPlayerEvent(WindowPtr, EventRecord *);
  65. extern Boolean IsAppWindow(WindowPtr);
  66.  
  67. /*******************************************************************************************
  68.  *******************************************************************************************/
  69. /* the following rutines service menu commands that have to do with the movie being
  70.    played; we call the controller to affect the action because this allows the controller
  71.    to be in sync with the movie.
  72.    
  73.    If you change the state of the movie through Movie Toolbox routines you have to call
  74.    MCMovieChanged in order to allow the controller to get back in sync.
  75. */
  76.  
  77. /* stops or starts the movie */
  78. void ChangeMooVState()
  79. {
  80. WindowPtr window;
  81. DocRecHandle wHndl;
  82.  
  83.   if (window = FrontWindow()) { /* don't bother if no movies to play */
  84.     if (IsAppWindow(window) && (wHndl = (DocRecHandle)GetWRefCon(window)) ) {
  85.       if ( GetMovieRate((*wHndl)->wMovie) ) {/* the movie is playing call controller to stop it */
  86.         MCDoAction((*wHndl)->wPlayer, mcActionPlay, 0x0000000); /* rate=zero to stop */
  87.       }
  88.       else  { /* needs to start movie */
  89.         MCDoAction((*wHndl)->wPlayer, mcActionPlay, (Ptr)0x00010000); /* rate=one to play */
  90.       }
  91.     }
  92.   }
  93. }
  94.  
  95. /* sets sound on or off */
  96. void ChangeMooVSound()
  97. {
  98. WindowPtr window;
  99. DocRecHandle wHndl;
  100. short vol;
  101.  
  102.   if (window = FrontWindow()) { /* don't bother if no movies to play */
  103.     if (IsAppWindow(window) && (wHndl = (DocRecHandle)GetWRefCon(window)) ) {
  104.       MCDoAction((*wHndl)->wPlayer , mcActionGetVolume, &vol);     /* get current volume     */
  105.       if (vol) {
  106.         (*wHndl)->soundVolume = vol;
  107.         vol = 0;
  108.         MCDoAction((*wHndl)->wPlayer , mcActionSetVolume, (Ptr)vol);     /* and set it        */
  109.       }
  110.       else {
  111.         vol = (*wHndl)->soundVolume;
  112.         MCDoAction((*wHndl)->wPlayer , mcActionSetVolume, (Ptr)vol);     /* and set it        */
  113.       }
  114.     }
  115.   }
  116. }
  117.  
  118. /* advances one frame */
  119. void NextMooVFrame()
  120. {
  121. short step = 1;                /* advance one frame        */
  122. WindowPtr window;
  123. DocRecHandle wHndl;
  124. ComponentResult err;
  125.  
  126.   if (window = FrontWindow()) { /* don't bother if no movies to play */
  127.     if (IsAppWindow(window) && (wHndl = (DocRecHandle)GetWRefCon(window)) ) {
  128.       if ( err = MCDoAction((*wHndl)->wPlayer, mcActionStep, (Ptr)step) )
  129.         DebugStr("\pError at step forward");
  130.     }
  131.   }
  132.   
  133. }
  134.  
  135. /* goes to previous frame */
  136. void PrevMooVFrame()
  137. { 
  138. short step = -1;            /* Negative values go backwards    */
  139. WindowPtr window;
  140. DocRecHandle wHndl;
  141. ComponentResult err;
  142.  
  143.   if (window = FrontWindow()) { /* don't bother if no movies to play */
  144.     if (IsAppWindow(window) && (wHndl = (DocRecHandle)GetWRefCon(window)) ) {
  145.       if ( err = MCDoAction((*wHndl)->wPlayer, mcActionStep, (Ptr)step) )
  146.         DebugStr("\pError at step backward");
  147.     }
  148.   }  
  149. }
  150.  
  151. /* Handle changes to loop settings and also turns palindrome on or off */
  152. void SetMovieLoop(whatAction)
  153. short whatAction;
  154. {
  155. WindowPtr window;
  156. DocRecHandle wHndl;
  157. Boolean isLooping;
  158.  
  159.     if (window = FrontWindow()) { /* don't bother if no movies to play */
  160.       if (IsAppWindow(window) && (wHndl = (DocRecHandle)GetWRefCon(window)) ) {
  161.         switch (whatAction) {
  162.             case loopMovie:
  163.               MCDoAction((*wHndl)->wPlayer, mcActionGetLooping, (void *)&isLooping);
  164.               MCDoAction((*wHndl)->wPlayer, mcActionSetLooping, (void *)!isLooping);
  165.               break;
  166.             case weirdLoopMovie:
  167.               MCDoAction((*wHndl)->wPlayer, mcActionGetLoopIsPalindrome, (void *)&isLooping);
  168.               MCDoAction((*wHndl)->wPlayer, mcActionSetLoopIsPalindrome, (void *)!isLooping);
  169.               break;
  170.         }
  171.       }
  172.     }
  173. }
  174.  
  175. /*******************************************************************************************
  176.  *******************************************************************************************/
  177. /* the idea in this function is to check if the event being handled
  178.    belongs to one instance of the controller; even when it is not a controller event we want
  179.    to call the component to let it handle idle events. If the controller decides
  180.    that it has one event it needs to handle and returns true the function returns
  181.    true; in other cases the function returns false and lets the normal event loop to fall through
  182. */
  183.  
  184. Boolean IsPlayerEvent(window, myEvent)
  185. WindowPtr window;
  186. EventRecord *myEvent;
  187. {
  188. #pragma unused (window)
  189.  
  190. DocRecHandle    wHndl;
  191. WindowPtr        wind;
  192. Boolean            result = false;
  193.     /* loop for each window until event has been taken care of or there are no more windows */
  194.     for (wind = *(WindowPtr *)WindowList;wind;wind = (WindowPtr)((WindowPeek)wind)->nextWindow) {     /* there may not be a window */
  195.       if (wHndl = (DocRecHandle)GetWRefCon(wind)) {     /* Get the storage handle */
  196.         result |= (MCIsPlayerEvent((*wHndl)->wPlayer, myEvent)); /* return true if controller event is handled */
  197.       }
  198.     }
  199.     return result;
  200. }
  201.  
  202. /*******************************************************************************************
  203.  *******************************************************************************************/
  204. /* Routines to handle editing commands */
  205.  
  206. /* Functions toggles editing on/off */
  207. void DoEnableEditing(void)
  208. {
  209. WindowPtr window;
  210. DocRecHandle wHndl;
  211.  
  212.     if (window = FrontWindow()) { /* don't bother if no movies to play */
  213.       if (IsAppWindow(window) && (wHndl = (DocRecHandle)GetWRefCon(window)) ) {
  214.         MCEnableEditing((*wHndl)->wPlayer,!MCIsEditingEnabled((*wHndl)->wPlayer));
  215.       }
  216.     }
  217. }
  218.  
  219. /* Undos edits */
  220. void DoUndoMovie(void)
  221. {
  222. WindowPtr window;
  223. DocRecHandle wHndl;
  224. ComponentResult err;
  225.  
  226.     if (window = FrontWindow()) { /* don't bother if no movies to play */
  227.       if (IsAppWindow(window) && (wHndl = (DocRecHandle)GetWRefCon(window)) ) {
  228.         if ( MCIsEditingEnabled((*wHndl)->wPlayer)) {
  229.           if ( ! MCIsControllerAttached((*wHndl)->wPlayer) )      /* if needed, atach it before    */
  230.              MCSetControllerAttached((*wHndl)->wPlayer, true);     /* performing operation            */
  231.  
  232. /* depending on what is being undo, this operation could leave an empty box movie, since
  233.    the controller is still attached it would jump to the top of the window; later on
  234.    the update that follows the controller goes away but it looks kind of ugly so we
  235.    make it invisible here, after repositioning the controller FixMovieWindow will
  236.    turn it on again.
  237. */
  238.           MCSetVisible((*wHndl)->wPlayer, false);
  239.           if ( err = MCUndo((*wHndl)->wPlayer) )
  240.             DebugStr("\pError at MCUndo");
  241.           else
  242.             if (FixMovieWindow(window))  /* movie size may have changed, check it up */
  243.               DebugStr("\pSomething wrong at FixMovieWindow");
  244.         }
  245.       }
  246.     }
  247. }
  248.  
  249. void DoCutMovie(void)
  250. {
  251. WindowPtr window;
  252. DocRecHandle wHndl;
  253.  
  254.     if (window = FrontWindow()) { /* don't bother if no movies to play */
  255.       if (IsAppWindow(window) && (wHndl = (DocRecHandle)GetWRefCon(window)) ) {
  256.         if ( MCIsEditingEnabled((*wHndl)->wPlayer)) {
  257.           if ( ! MCIsControllerAttached((*wHndl)->wPlayer) )      /* if needed, atach it before    */
  258.              MCSetControllerAttached((*wHndl)->wPlayer, true);     /* performing operation            */
  259.           if (cuts)
  260.             DisposeMovie(cuts);            /* get rid of movie    first */
  261.  
  262. /* Cut can result in an empty box movie; therefore make controller invisible and then let
  263.    FixMovieWindow turn it on when all the repositioning is done.
  264. */
  265.           MCSetVisible((*wHndl)->wPlayer, false);
  266.           if ( !(cuts = MCCut((*wHndl)->wPlayer)) ) {
  267.             DebugStr("\pError at MCCut");
  268.           }
  269.           if (FixMovieWindow(window)) /* movie size may have changed, check it up */
  270.             DebugStr("\pSomething wrong at FixMovieWindow");
  271.         }
  272.       }
  273.     }
  274. }
  275.  
  276. void DoCopyMovie(void)
  277. {
  278. WindowPtr window;
  279. DocRecHandle wHndl;
  280.  
  281.     if (window = FrontWindow()) { /* don't bother if no movies to play */
  282.       if (IsAppWindow(window) && (wHndl = (DocRecHandle)GetWRefCon(window)) ) {
  283.         if ( MCIsEditingEnabled((*wHndl)->wPlayer)) {
  284.           if (cuts)
  285.             DisposeMovie(cuts);            /* get rid of movie    first */
  286.           if ( !(cuts = MCCopy((*wHndl)->wPlayer)) ) {
  287.             DebugStr("\pError at MCCopy"); /* nothing selected maybe*/
  288.           }
  289.         }
  290.       }
  291.     }
  292. }
  293.  
  294. /* Pastes movie pieces into front most window if editing is enabled.
  295.    But first it check if the movie has its controller attached, if not (the
  296.    movie has no spatial bounds, empty or no video movie, then the controller is attached.
  297.    The call to FisMovieWindow would detach the controller if the movie still has no
  298.    bounds.
  299. */
  300. void DoPasteMovie(void)
  301. {
  302. WindowPtr window;
  303. DocRecHandle wHndl;
  304. ComponentResult err;
  305.  
  306.     if (window = FrontWindow()) { /* don't bother if no movies to play */
  307.       if (cuts && IsAppWindow(window) && (wHndl = (DocRecHandle)GetWRefCon(window)) ) {
  308.         if ( MCIsEditingEnabled((*wHndl)->wPlayer)) {
  309.           if ( ! MCIsControllerAttached((*wHndl)->wPlayer) )  /* if needed            */
  310.              MCSetControllerAttached((*wHndl)->wPlayer, true); /* atach it             */
  311.  
  312. /* paste can result in an empty box movie; therefore make controller invisible and then let
  313.    FixMovieWindow turn it on when all the repositioning is done.
  314. */
  315.           MCSetVisible((*wHndl)->wPlayer, false);
  316.           if ( err = MCPaste((*wHndl)->wPlayer, cuts) ) {
  317.             DebugStr("\pError at MCPaste");
  318.           }
  319.           else
  320.             if (FixMovieWindow(window)) 
  321.               DebugStr("\pSomething wrong at FixMovieWindow");
  322.         }
  323.       }
  324.     }
  325. }
  326.  
  327. void DoClearMovie(void)
  328. {
  329. WindowPtr window;
  330. DocRecHandle wHndl;
  331. ComponentResult err;
  332.  
  333.     if (window = FrontWindow()) { /* don't bother if no movies to play */
  334.       if (IsAppWindow(window) && (wHndl = (DocRecHandle)GetWRefCon(window)) ) {
  335.         if ( MCIsEditingEnabled((*wHndl)->wPlayer)) {
  336.  
  337.           if ( ! MCIsControllerAttached((*wHndl)->wPlayer) )  /* if needed            */
  338.              MCSetControllerAttached((*wHndl)->wPlayer, true); /* atach it             */
  339.  
  340. /* Clear can result in an empty box movie; therefore make controller invisible and then let
  341.    FixMovieWindow turn it on when all the repositioning is done.
  342. */
  343.           MCSetVisible((*wHndl)->wPlayer, false);
  344.  
  345.           if ( err = MCClear((*wHndl)->wPlayer) ) {
  346.             DebugStr("\pError at MCClear");
  347.           }
  348.           if (FixMovieWindow(window)) /* movie size may have changed, check it up */
  349.             DebugStr("\pSomething wrong at FixMovieWindow");
  350.         }
  351.       }
  352.     }
  353. }
  354.  
  355. /* selects the whole movie for editing */
  356. void DoSelectAll(void)
  357. {
  358. WindowPtr window;
  359. DocRecHandle wHndl;
  360. ComponentResult err;
  361. TimeRecord tRec;
  362.  
  363.     if (window = FrontWindow()) { /* don't bother if no movies to play */
  364.       if (IsAppWindow(window) && (wHndl = (DocRecHandle)GetWRefCon(window)) ) {
  365.         if ( MCIsEditingEnabled((*wHndl)->wPlayer)) {
  366.           tRec.value.lo = tRec.value.hi = 0;
  367.           tRec.base = 0;
  368.           tRec.scale = GetMovieTimeScale((*wHndl)->wMovie);
  369.           if ( err = MCDoAction((*wHndl)->wPlayer, mcActionSetSelectionBegin, &tRec)) {
  370.               DebugStr("\pError trying mcActionSetSelectionBegin");
  371.           }
  372.           
  373.           tRec.value.hi = 0;
  374.           tRec.value.lo = GetMovieDuration((*wHndl)->wMovie);
  375.           tRec.base = 0;
  376.           tRec.scale = GetMovieTimeScale((*wHndl)->wMovie);
  377.           if ( err = MCDoAction((*wHndl)->wPlayer, mcActionSetSelectionDuration, &tRec)) {
  378.               DebugStr("\pError trying mcActionSetSelectionDuration");
  379.           }
  380.         }
  381.       }
  382.     }
  383. }
  384.  
  385.  
  386. /*******************************************************************************************
  387.  *******************************************************************************************/
  388. /* Utility proc that fixes the size of the display window when the dimensions have changed;
  389.    it expects all the checks done when called.
  390. */
  391. OSErr FixMovieWindow(WindowPtr window)
  392. WindowPtr window;
  393. {
  394. DocRecHandle wHndl;
  395. Rect moovBox, controllerBox;
  396. OSErr err = noErr;
  397.  
  398.     if (wHndl = (DocRecHandle)GetWRefCon(window)) {
  399.       GetMovieBox((*wHndl)->wMovie,&moovBox); /* Use the movie box to resize window */
  400.       if ( ! EmptyRect(&moovBox)) {
  401.       /* usual case when movie has video to show */
  402.         if (err = MCGetControllerBoundsRect((*wHndl)->wPlayer, &controllerBox) )
  403.           DebugStr("\pError at MCGetControllerBoundsRect");
  404.  
  405.         UnionRect(&moovBox, &controllerBox, &moovBox);
  406.  
  407.         SizeWindow(window, moovBox.right-moovBox.left,moovBox.bottom-moovBox.top,true);
  408.       }
  409.       else { /* new movie or a movie that lost all visible portions through editing */
  410.       /* positioning the controller while it is attached is not possible so we detach it
  411.          in order to avoid the controller jumping to the top of the window when the
  412.          movie has not visible stuff.
  413.       */
  414.         if ( MCIsControllerAttached((*wHndl)->wPlayer) )
  415.           MCSetControllerAttached((*wHndl)->wPlayer, false); /* detach it */
  416.         if (err = MCGetControllerBoundsRect((*wHndl)->wPlayer, &controllerBox) )
  417.           DebugStr("\pError at MCGetControllerBoundsRect");
  418.         controllerBox.top =   ((GrafPtr) window)->portRect.bottom - controllerBox.bottom;
  419.         controllerBox.right = ((GrafPtr) window)->portRect.right;
  420.         controllerBox.bottom = ((GrafPtr) window)->portRect.bottom;
  421.         MCPositionController((*wHndl)->wPlayer, &moovBox, &controllerBox, mcTopLeftMovie /*controllerCreationFlags*/);
  422.       }
  423.  
  424.     }
  425.     if ( ! MCGetVisible((*wHndl)->wPlayer) ) {
  426.       if ( err = MCSetVisible((*wHndl)->wPlayer, true) )
  427.           DebugStr("\pError at MCSetVisible");
  428.     }
  429.     return err;
  430. }
  431.  
  432. /*******************************************************************************************
  433.  *******************************************************************************************/
  434. /* This procedure gets called with suspend and resume events to
  435.    put a movie into the scrap when being switched back and to get the scrap
  436.    when comming to the front.
  437. */
  438. extern void DoScrapStuff(toScrap)
  439. Boolean toScrap;
  440. {
  441. OSErr err;
  442.     if (toScrap)     /* check if we have a movie to     */
  443.       if (cuts)     /* put in the scrap                */
  444.         if ( err = PutMovieOnScrap(cuts, 0L) ) /* now put it there */
  445.           DebugStr("\pSomething wrong trying to put movie to scrap");
  446.     else { 
  447.     /* convert scrap to local */
  448.       if (cuts)    
  449.         DisposeMovie(cuts);            /* get rid of movie    first */
  450.       if ( !(cuts = NewMovieFromScrap(0) ) )
  451.         DebugStr("\pSomething wrong trying to get movie from scrap");
  452.     }
  453. }
  454. /*******************************************************************************************
  455.  *******************************************************************************************/
  456.